home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  506b  |  14 lines
  1. 10 REM *** PROGRAMM TEILBILDSCHIRM IN BASIC ***
  2. 20 INPUT"ECKE LINKS OBEN S1,Z1   =";S1,Z1
  3. 30 INPUT"ECKE RECHTS UNTEN S2,Z2 =";S2,Z2
  4. 40 INPUT"WAS SOLL HINEIN          ";W
  5. 50 REM ** STEUERWERTE BERECHNEN: S  = BILDSCHIRMSTARTADRESSE
  6. 60 REM                           SD = SPALTENDIFFERENZ
  7. 70 REM                           ZD = ZEILENDIFFERENZ
  8. 80 SC = (null)("3FF"):S = SC + 40*(Z1-1) + S1:SD = S2 - S1:ZD = Z2 - Z1
  9. 90 REM *** SCHLEIFE ***
  10. 100 I=0:Z=0
  11. 110 :POKE S+I,W
  12. 120 :I=I+1:IF I>SD THEN S=S+40:I=0:Z=Z+1:IF Z>ZD THEN END
  13. 130 :GOTO 110
  14.